10 POKE56,64:POKE55,0:CLR 20 DV=PEEK(186):IFDV<8THENDV=8 25 POKE788,52 30 POKE53281,0:POKE53280,0:PRINT"[147][129]"TAB(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]" 40 PRINTTAB(10)"[155]BY [210]ICHARD [202]. [199]LISSON 42 [139]F1[167]102 44 F1[178]1 50 [158]57812"WP/CM/UNP",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493 62 [158]57812"BRAIN.SHP",DV,0:[151]780,0:[151]781,0:[151]782,100:[158]65493 64 [158]57812"ERROR.SHP",DV,0:[151]780,0:[151]781,0:[151]782,114:[158]65493 66 [158]57812"SECRET.SHP",DV,0:[151]780,0:[151]781,0:[151]782,128:[158]65493 90 [151]53280,0 92 WP[178]49152:UN[178]51456:CM[178]50688 94 LF$(0)[178]"(null)ASCASC":LF$(1)[178]"(null)(null) " 96 S(1)[178]100:S(2)[178]114:S(3)[178]128 102 [153][163]12)" 1.CONT PEEKRAIN ON LEN=64 103 PRINTTAB(12)" 2.[154] [197]RROR NEAR $8518 104 [153][163]12)" 3.CONT (null)ECRET 64 (null)SER 105 PRINTTAB(12)" 4.[154] [209]UIT 106 [161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]106 108 D[178][197](A$):[139]D[178]4[167]40000 109 [129]I[178]3[164]10:[151]781,I:[158]59903:[130] 112 [151]251,S(D):[151]252,64:[151]253,96:[158]51456 120 [153]"ONONONON 1.CONT MID$UST SHOW THE PICTURE. 122 PRINT" 2.[154] [211]HOW THE PICTURE AND PRINT IT ON 125 [153]" A 7-PIN (1525-EMULATING) PRINTER. 130 PRINT" 3.[154] [211]HOW THE PICTURE AND PRINT IT ON 135 [153]" AN 8-PIN (VALPSON-EMULATING) PRINTER. 140 PRINT" 4.[154] [212]OGGLE LINEFEED -- "LF$(LF) 150 PRINT" 5.[154] [210]ETURN TO [204][207][193][196][211][212][193][210] 170 [153]"LIST (null)AKE SURE YOUR PRINTER IS ON-LINE. 220 POKE198,0 222 POKE53280,0 230 GETA$:IFA$<"1"ORA$>"5"THEN230 232 IFA$="5"THEN40000 233 IFA$="4"THENLF=1-LF:POKE214,14:PRINT:PRINTTAB(23)""LF$(LF):GOTO220 235 SYS51459 240 IFA$="2"THENSYS49155,4,0,LF,0,0,39,24,64:GOTO280 250 IFA$="3"THENSYS49152,4,5,LF,0,0,39,24,64,75,35,65,8,0:GOTO280 260 POKE198,0 262 POKE53280,0 270 GETA$:IFA$=""THEN270 280 POKE251,S(D):POKE252,64:POKE253,96:SYS51459 290 PRINT"[147]":GOTO30 10000 DV=PEEK(186):N$="B.OP ED 134":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END 40000 POKE788,49 40002 FORI=0TO21:POKE828+I,8+I:NEXT 40010 IFDV<8ORDV>29ORDV=8THEN40030 40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A 40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070 40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END 40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23 40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I 40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END